home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / WIZARDS / CTRLWIZ.DLL / 1033 / TEXT / STDINFO next >
Encoding:
Text File  |  1998-06-18  |  4.4 KB  |  190 lines
  1. This file contains the standard Property, Event, and Method Templates.
  2. Each section is marked with an "*" in column1, and the name of the section
  3. in capital letters starting in column2.  The end of a section is marked with 
  4. an "*" in column1, and the word "END" in capital letters starting in column
  5. 2.  Everything else is ignored.  Items within the "<>" symbols must NOT be 
  6. localized!!!
  7.  
  8. *PROPERTY_GET
  9. Public Property Get <Public_Name>(<Arguments_Def>) as <Data_Type>
  10.     <RT_Opt><Set><Public_Name> = <Data_Src><Arguments_Use>
  11. End Property
  12. *END
  13.  
  14. *PROPERTY_GETNULL
  15. 'The body of <Public_Name> is intentionally left blank
  16. Public Property Get <Public_Name>() as <Data_Type>
  17.     
  18. End Property
  19. *END
  20.  
  21. *PROPERTY_LET
  22. Public Property Let <Public_Name>(<Arguments_Def>ByVal New_<Public_Name> as <Data_Type>)
  23.     <DT_Opt><RT_Opt><Data_Src><Arguments_Use> = New_<Public_Name>
  24.     PropertyChanged "<Public_Name>"
  25. End Property
  26. *END
  27.  
  28. *PROPERTY_LETNULL
  29. 'The body of <Public_Name> is intentionally left blank
  30. Public Property Let <Public_Name>(ByVal New_<Public_Name> as <Data_Type>)
  31.     
  32. End Property
  33. *END
  34.  
  35. *PROPERTY_SET
  36. Public Property Set <Public_Name>(ByVal New_<Public_Name> as <Data_Type>)
  37.     <DT_Opt><RT_Opt>Set <Data_Src> = New_<Public_Name>
  38.     PropertyChanged "<Public_Name>"
  39. End Property
  40. *END
  41.  
  42. *PROPERTY_SETNULL
  43. 'The body of <Public_Name> is intentionally left blank
  44. Public Property Set <Public_Name>(ByVal New_<Public_Name> as <Data_Type>)
  45.     
  46. End Property
  47. *END
  48.  
  49. *PROPERTY_VAR
  50. Dim m_<Public_Name> as <Data_Type>
  51. *END
  52.  
  53. *PROPERTY_CONST
  54. Const m_Def_<Public_Name> = <Default_Value>
  55. *END
  56.  
  57. *METHOD_SUB
  58. Public Sub <Public_Name>(<Arguments_Def>)
  59.     <Data_Src> <Arguments_Use>
  60. End Sub
  61. *END
  62.  
  63. *METHOD_FUNC
  64. Public Function <Public_Name>(<Arguments_Def>) as <Data_Type>
  65.     <Public_Name> = <Data_Src>(<Arguments_Use>)
  66. End Function
  67. *END
  68.  
  69. *METHOD_FUNC_NULL
  70. Public Function <Public_Name>(<Arguments_Def>) as <Data_Type>
  71.  
  72. End Function
  73. *END
  74.  
  75. *EVENT
  76. Private Sub <Data_Src>(<Arguments_Def>)
  77.     RaiseEvent <Public_Name> <Arguments_Use>
  78. End Sub
  79. *END
  80.  
  81. *EVENT_BODY
  82.     RaiseEvent <Public_Name> <Arguments_Use>
  83. *END
  84.  
  85. *SAVEDATA_HDR
  86. Private Sub <UserControl>_WriteProperties(PropBag As VB.PropertyBag)
  87. *END
  88.  
  89. *SAVEDATA_BODY
  90.     Call PropBag.WriteProperty("<Property_Name>",<Data_Src>,m_Def_<Property_Name>)
  91. *END
  92.  
  93. *LOADDATA
  94. Private Sub <UserControl>_ReadProperties(PropBag As VB.PropertyBag)
  95. *END
  96.  
  97. *SAVEDATA_BODY
  98.     <Data_Src> = PropBag.ReadProperty("<Property_Name>",m_Def_<Property_Name>)
  99. *END
  100.  
  101. *INITPROPERTIES_HDR
  102. Private Sub <UserControl>_InitProperties()
  103. *END
  104.  
  105. *INITPROPERTIES_BODY
  106.     <Property_Name> = m_Def_<Property_Name>
  107. *END
  108.  
  109. *SUB_END
  110. End Sub
  111. *END
  112.  
  113. *METHOD_CIRCLE
  114. Public Sub Circle_(X As Single, Y As Single, Radius As Single, Color As Long, StartPos As Single, EndPos As Single, Aspect As Single)
  115.     <Data_Src> (X,Y),Radius,Color,StartPos,EndPos,Aspect
  116. End Sub
  117. *END
  118.  
  119. *METHOD_SUB_CIRCLE
  120. Public Sub Circle_(X As Single, Y As Single, Radius As Single, Color As Long, StartPos As Single, EndPos As Single, Aspect As Single)
  121.     
  122. End Sub
  123. *END
  124.  
  125. *METHOD_LINE
  126. Public Sub Line(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)
  127.     <Data_Src> (X1, Y1)-(X2, Y2), Color
  128. End Sub
  129. *END
  130.  
  131. *METHOD_SUB_LINE
  132. Public Sub Line(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)
  133.     
  134. End Sub
  135. *END
  136.  
  137. *METHOD_PSET
  138. Public Sub PSet_(X As Single, Y As Single, Color As Long)
  139.     <Data_Src> Step(X, Y), Color
  140. End Sub
  141. *END
  142.  
  143. *METHOD_SUB_PSET
  144. Public Sub PSet_(X As Single, Y As Single, Color As Long)
  145.     
  146. End Sub
  147. *END
  148.  
  149. *METHOD_SCALE
  150. Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
  151.     <Data_Src> (X1, Y1)-(X2, Y2)
  152. End Sub
  153. *END
  154.  
  155. *METHOD_SUB_SCALE
  156. Public Sub Scale_(Optional X1 As Variant, Optional Y1 As Variant, Optional X2 As Variant, Optional Y2 As Variant)
  157.     
  158. End Sub
  159. *END
  160.  
  161. *METHOD_POINT
  162. Public Function Point(X As Single, Y As Single) As Long
  163.     Point = <Data_Src>(X, Y)
  164. End Function
  165. *END
  166.  
  167. *METHOD_FUNC_POINT
  168. Public Function Point(X As Single, Y As Single) As Long
  169.     
  170. End Function
  171. *END
  172.  
  173. *READPROP_HDR
  174. 'Load property values from storage
  175. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  176.  
  177. *END
  178.  
  179. *WRITEPROP_HDR
  180. 'Write property values to storage
  181. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  182.  
  183. *END
  184.  
  185. *INITPROP_HDR
  186. 'Initialize Properties for User Control
  187. Private Sub UserControl_InitProperties()
  188. *END
  189.